home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_14.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.6 KB  |  56 lines
  1. on exitFrame
  2.   global mmlp4, mmlp5, mmlp1, mmlp2, mmlp3, mm1_list, mm2_list, mm3_list, mm4_list, mm5_list, nuoliblendsuunta
  3.   DefCurs()
  4.   set bl to the blend of sprite 20
  5.   if nuoliblendsuunta = 1 then
  6.     set bl to bl - 5
  7.     if bl < 0 then
  8.       set bl to 0
  9.       set nuoliblendsuunta to 2
  10.     end if
  11.   else
  12.     set bl to bl + 5
  13.     if bl > 100 then
  14.       set bl to 100
  15.       set nuoliblendsuunta to 1
  16.     end if
  17.   end if
  18.   set the blend of sprite 20 to bl
  19.   if rollOver(3) or (mmlp5 <> 1) then
  20.     set mmlp5 to mmlp5 + 1
  21.     if getAt(mm5_list, mmlp5) = "_loop" then
  22.       set mmlp5 to 1
  23.     end if
  24.     set the member of sprite 18 to member getAt(mm5_list, mmlp5) of castLib "main_menu_icons"
  25.   end if
  26.   if rollOver(4) or (mmlp4 <> 1) then
  27.     set mmlp4 to mmlp4 + 1
  28.     if getAt(mm4_list, mmlp4) = "_loop" then
  29.       set mmlp4 to 1
  30.     end if
  31.     set the member of sprite 17 to member getAt(mm4_list, mmlp4) of castLib "main_menu_icons"
  32.   end if
  33.   if rollOver(5) then
  34.     set mmlp1 to mmlp1 + 1
  35.     if getAt(mm1_list, mmlp1) = "_loop" then
  36.       set mmlp1 to 1
  37.     end if
  38.     set the member of sprite 14 to member getAt(mm1_list, mmlp1) of castLib "main_menu_icons"
  39.   end if
  40.   if rollOver(15) then
  41.     set mmlp2 to mmlp2 + 1
  42.     if getAt(mm2_list, mmlp2) = "_loop" then
  43.       set mmlp2 to 1
  44.     end if
  45.     set the member of sprite 15 to member getAt(mm2_list, mmlp2) of castLib "main_menu_icons"
  46.   end if
  47.   if rollOver(6) then
  48.     set mmlp3 to mmlp3 + 1
  49.     if getAt(mm3_list, mmlp3) = "_loop" then
  50.       set mmlp3 to 1
  51.     end if
  52.     set the member of sprite 16 to member getAt(mm3_list, mmlp3) of castLib "main_menu_icons"
  53.   end if
  54.   go(the frame)
  55. end
  56.